perm filename GLS[MUS,LCS] blob
sn#274263 filedate 1977-04-05 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00014 ENDMK
C⊗;
GLIA 0 20;
P2 .8 .03 .3 .2 .8 1;
P3 "+";P4 1 1,8;
P5 1 C5 B7;
P6 MOVX/10 300 10/10 10 330; P7 F1;
P8 F3;
P9 1 C5 B7;
P12 P9;
P10 F10;
P11 NAMES/GLIA/GLIB/GLIC/GLID/GLIE/GLIF/GLIG/GLIH/GLII/
GLIJ/GLIK/GLIL/GLIM/GLIN/GLIO/GLIP/GLIQ/GLIR/
GLIS/GLIT/GLIU/GLIV/GLIW/GLIX/GLIY/GLIZ/GLXA/GLXB;
END;
GLIA 1 2;
P5 P12;END;
CLARA 0 20;
P2 P2;
P3 P3; P4 P4;
P5 P5;
P6 MOVX/10 20 330/10 330 20; P7 F1;
P9 F3;
P8 NAMES/CLARA/CLARB/CLARC/CLARD/CLARE/CLARF/CLARG/CLARH/
CLARJ/CLARI/CLARK/CLARL/CLARM/CLARN/CLARO/CLARP/CLARQ/CLARR/CLARS/
CLART/CLARU/CLARV/CLARW/CLARX/CLARY/CLARZ/CLAR/CLAXA/CLAXB;
END;
INSTRUMENT GLIA;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
ARRAY F10(512);SEG(F10);0 1 1 100;
<<PLAY;GLIA 0 .2 C 1200 F1 F3 C*2 F10;FINISH;
INSTRUMENT CLARA;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2;
END;